home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iii 85.d64 / flexy mortgage.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  308 lines
  1. 15 POKE53280,1:POKE53281,1
  2. 20 GOTO1000
  3. 50 OPEN3,3:OPEN4,4,7:PRINT"";:FORI=0TO999:GET#3,A$:PRINT#4,A$;:NEXT
  4. 55 CLOSE3:CLOSE4:RETURN
  5. 100 REM VARIABLESFOR FLEX MORTGAGE
  6. 110 IF Z = 1 THEN A = 1/6
  7. 111 IF ZZ= 1 THEN A = 1/6
  8. 120 IF Z = 1 THEN B = 12
  9. 121 IF ZZ= 1 THEN B = 12
  10. 130 IF Z = 1 THEN C = 36
  11. 131 IF ZZ= 1 THEN C = 36
  12. 135 IF Z = 1 THEN D = 1
  13. 136 IF ZZ= 1 THEN E = 1
  14. 140 IF Z = 1 THEN Q$ = "MONTHLY"
  15. 141 IF ZZ= 1 THEN Q$ = "MONTHLY"
  16. 150 IF Z = 2 THEN A = 1/12
  17. 151 IF ZZ= 2 THEN A = 1/12
  18. 160 IF Z = 2 THEN B = 24
  19. 161 IF ZZ= 2 THEN B = 24
  20. 170 IF Z = 2 THEN C = 72
  21. 171 IF ZZ= 2 THEN C = 72
  22. 175 IF Z = 2 THEN D = 2
  23. 176 IF ZZ= 2 THEN E = 3
  24. 180 IF Z = 2 THEN Q$ = "SEMI-MONTHLY"
  25. 181 IF ZZ= 2 THEN Q$ = "SEMI-MONTHLY"
  26. 190 IF Z = 3 THEN A = 28/365
  27. 191 IF ZZ= 3 THEN A = 28/365
  28. 200 IF Z = 3 THEN B = 26
  29. 201 IF ZZ= 3 THEN B = 26
  30. 210 IF Z = 3 THEN C = 78
  31. 211 IF ZZ= 3 THEN C = 78
  32. 215 IF Z = 3 THEN D = 2
  33. 216 IF ZZ= 3 THEN E = 3
  34. 220 IF Z = 3 THEN Q$ = "BI-WEEKLY"
  35. 221 IF ZZ= 3 THEN Q$ = "BI-WEEKLY"
  36. 230 IF Z = 4 THEN A = 14/365
  37. 231 IF ZZ= 4 THEN A = 14/365
  38. 240 IF Z = 4 THEN B = 52
  39. 241 IF ZZ= 4 THEN B = 52
  40. 250 IF Z = 4 THEN C = 156
  41. 251 IF ZZ= 4 THEN C = 156
  42. 255 IF Z = 4 THEN D = 4
  43. 256 IF ZZ= 4 THEN E = 5
  44. 260 IF Z = 4 THEN Q$ = "WEEKLY"
  45. 261 IF ZZ= 4 THEN Q$ = "WEEKLY"
  46. 300 RETURN
  47. 1000 PRINT"[147][154]     [205][207][210][212][199][193][199][197][160][195][193][204][195][213][204][193][212][201][207][206][160][205][197][206][213]"
  48. 1005 PRINT"BY [208]AUL [208]ATON [212][208][213][199] 16191"
  49. 1010 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  50. 1020 PRINT"P. [195]ALCULATE [208]AYMENT"
  51. 1030 PRINT"A. [195]ALCULATE [193]MORTIZATION"
  52. 1040 PRINT"C. [195]ALC [208]AYMENT [195]OMPARISON"
  53. 1050 PRINT"O. [195]ALC [193]MORTIZATION [195]OMPARISON"
  54. 1060 PRINT"Q. [195]OST [195]OMPARISON"
  55. 1090 PRINT"E. [197][206][196][160][208][210][207][199][210][193][205]
  56. 1092 [153]"PRESS - P - FOR SCREEN DUMP IN OPTIONS"
  57. 1093 [153]"(null)PTIONS P & A CAN PRODUCE AMORTIZATION"
  58. 1094 [153]"     TABLES ON A 1526 PRINTER"
  59. 1100 [133]"(null)RESS (null)VAL(null)(null)VAL(null) AND (null)VAL(null)(null)(null)(null) FOR LENHOICE:-";P$
  60. 1107 [139]P$[178] "L" [167] [141]50
  61. 1110 [139] P$[178]"P"[167] [137] 2000
  62. 1120 [139] P$[178]"A"[167] [137] 3000
  63. 1125 [139] P$[178]"C"[167] [137] 4000
  64. 1126 [139] P$[178]"O" [167] [137] 5000
  65. 1130 [139] P$[178]"Q"[167] [137]7000
  66. 1190 [139] P$[178]"E"[167] [137]1900
  67. 1200 [139] P$[179][177]"E"[167] [137]1110
  68. 1900 [143] END
  69. 1905 [153]"LOADEND"
  70. 1910 [128]
  71. 2000 [143] CALCULATE PAYMENT
  72. 2010 [153] "LOADCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSELENALCULATE (null)AYMENT"
  73. 2011 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  74. 2020 [153] "(null)ONTHLY (1), (null)EMI-(null)ONTHLY (2),            PEEKI-(null)EEKLY (3) , (null)EEKLY(4)"
  75. 2021 [133] Z:    [139] Z [178] 1 [167] [137]2030
  76. 2022 [139] Z[178]2 [167] [137]2030
  77. 2023 [139] Z[178]3 [167] [137]2030
  78. 2024 [139] Z[178]4 [167] [137]2030
  79. 2030 [141] 100
  80. 2035 [153]
  81. 2040 [133] "VALNTER (null)ORTGAGE ATNMOUNT :-";AF
  82. 2041 [153]
  83. 2060 [133]"VALNTER RIGHT$NTEREST (null)ATE   :-";IR
  84. 2065 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  85. 2080 [133]"VALNTER (null)UMBER OF (null)EARS :-";Y
  86. 2085 [133]"VALNTER ATNNNUAL VALST. (null)AX :-";T
  87. 2087 [133]" VALNTER (null)ERM -  YRS.   :-";TE
  88. 2090 NF[178] Y[172]B
  89. 2100 PF [178] AF[172](RF[173](1 [171](1 [173]((1 [170]RF)[174]NF))))
  90. 2110 PF [178] [181]((PF[170]5.000001E[171]03)[172]100)[173]100
  91. 2120 [153]"";Q$;" (null)AYMENTS ATNRE :- $";PF
  92. 2210 TB[178]T[173](B)
  93. 2215 TB [178] [181]((TB[170]5.000001E[171]03)[172]100)[173]100
  94. 2220 [153]"(null)AX LENOMPONENT IS     :- $";TB
  95. 2230 [153]"                         USRUSRUSRUSRUSRUSRUSRUSRUSR"
  96. 2240 TC[178]PF[170]TB
  97. 2260 [153]"(null)OTAL (null)ERIOD (null)AYMENT IS-$";TC
  98. 2800 [133]"(null)RINT ATNMORTIZATION (null)ABLE Y/N";Q$
  99. 2801 [139] Q$[178]"Y" [167] [141]8000
  100. 2900 [153]" (null)RESS -N-FOR NEXT ,-M- FOR (null)ENU"
  101. 2910 [133] P$: [139] P$ [178]"N" [167] [137] 2000
  102. 2915 [139] P$[178] "P" [167] [141] 50
  103. 2920 [139] P$[178] "M" [167] [137] 1000
  104. 2930 [139] P$ [179][177] "M" [167] [137] 2910
  105. 3000 [143] CALC. AMORT
  106. 3010 [153]"LOAD       LENALCULATE ATNMORTIZATION"
  107. 3011 [153]"        ----------------------"
  108. 3020 [153] "(null)ONTHLY (1), (null)EMI-(null)ONTHLY (2),            PEEKI-(null)EEKLY (3) , (null)EEKLY(4)"
  109. 3021 [133] Z:    [139] Z [178] 1 [167] [137]3030
  110. 3022 [139] Z[178]2 [167] [137]3030
  111. 3023 [139] Z[178]3 [167] [137]3030
  112. 3024 [139] Z[178]4 [167] [137]3030
  113. 3030 [141] 100
  114. 3035 [153]
  115. 3040 [133] "VALNTER (null)ORTGAGE ATNMOUNT :-";AF
  116. 3041 [153]
  117. 3050 [153]"1 TO 35 PERCENT "
  118. 3051 [153]
  119. 3060 [133]"VALNTER RIGHT$NTEREST (null)ATE   :-";IR
  120. 3065 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  121. 3066 [141]6000
  122. 3069 [153]
  123. 3070 [133]"VALNTER (null)AYMENT         :-";PF
  124. 3076 [133]"VALNTER (null)ERM    YRS.    :-";TE
  125. 3080 NF[178][171]([188](1[171]AF[172]RF[173]PF)[173][188](1[170]RF))
  126. 3085 NF[178] [181]((NF[170]5.000001E[171]03)[172]100)[173]100
  127. 3086 NY[178]NF[173]B
  128. 3087 NY[178] [181]((NY[170]5.000001E[171]03)[172]100)[173]100
  129. 3090 [153]:[153] "ATNMORT FOR ";Q$;" MORTGAGE -";NY;"(null)RS"
  130. 3800 [133]"(null)RINT ATNMORTIZATION (null)ABLE Y/N";Q$
  131. 3801 [139] Q$[178]"Y" [167] [141]8000
  132. 3900 [153]" (null)RESS -N-FOR NEXT ,-M- FOR (null)ENU"
  133. 3910 [133] P$: [139] P$ [178]"N" [167] [137] 3000
  134. 3915 [139] P$[178] "P" [167] [141] 50
  135. 3920 [139] P$[178] "M" [167] [137] 1000
  136. 3930 [139] P$ [179][177] "M" [167] [137] 3910
  137. 4000 [143] COMPARE PAYMENTS
  138. 4010 [153]"LOAD  LENOMPARISON OF (null)AYMENT (null)PTIONS"
  139. 4012 [153]"    BASED ON KNOWN ATNMORTIZATION"
  140. 4014 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  141. 4040 [133] "VALNTER (null)ORTGAGE ATNMOUNT:-";AF
  142. 4060 [133]"VALNTER RIGHT$NTEREST (null)ATE   :-";IR
  143. 4065 [133]"VALNTER (null)UMBER OF (null)EARS :-";Y
  144. 4070 [133]"VALNTER ATNNNUAL VALST. (null)AX :-";T
  145. 4071 [133]"VALNTER (null)ERM  - YRS.    :-";TE
  146. 4081 [153]"(null)AYMENT  (null)AX LENOMP  (null)ORTGAGE (null)YPE"
  147. 4082 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  148. 4085 Z[178]1
  149. 4090 [141]100
  150. 4100 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  151. 4110 NF[178] Y[172]B
  152. 4120 PF [178] AF[172](RF[173](1 [171](1 [173]((1 [170]RF)[174]NF))))
  153. 4130 PF [178] [181]((PF[170]5.000001E[171]03)[172]100)[173]100
  154. 4132 TB[178]T[173](B)
  155. 4133 TB [178] [181]((TB[170]5.000001E[171]03)[172]100)[173]100
  156. 4140 [153]"$";PF,"$";TB,Q$
  157. 4150 Z[178]Z[170]1
  158. 4155 [139] Z [178] 5 [137]4900
  159. 4160 [137] 4090
  160. 4800 [133]"(null)RINT ATNMORTIZATION (null)ABLE Y/N";Q$
  161. 4801 [139] Q$[178]"Y" [167] [141]8000
  162. 4900 [153]" (null)RESS -N-FOR NEXT ,-M- FOR (null)ENU"
  163. 4910 [133] P$: [139] P$ [178]"N" [167] [137] 4000
  164. 4915 [139] P$[178] "P" [167] [141] 50
  165. 4920 [139] P$[178] "M" [167] [137] 1000
  166. 4930 [139] P$ [179][177] "M" [167] [137] 4910
  167. 5000 [143] AMORTIZATION COMPARISON
  168. 5010 [153]"LOAD  LENOMPARISON OF ATNMORTIZATION (null)ERIODS"
  169. 5012 [153]"    BASED ON KNOWN (null)AYMENT "
  170. 5014 [153]" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  171. 5040 [133] "VALNTER (null)ORTGAGE ATNMOUNT :-";AF
  172. 5060 [133]"VALNTER RIGHT$NTEREST (null)ATE   :-";IR
  173. 5063 A[178]1[173]6
  174. 5064 B[178]12
  175. 5065 [141]6000
  176. 5070 [133]"VALNTER (null)AYMENT         :-";PF
  177. 5080 [153] "CLOSEATNMORTIZATION ","(null)ORTGAGE (null)YPE"
  178. 5085 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  179. 5100 Z[178]1
  180. 5110 [141]100
  181. 5165 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  182. 5180 NF[178][171]([188](1[171]AF[172]RF[173]PF)[173][188](1[170]RF))
  183. 5185 NF[178] [181]((NF[170]5.000001E[171]03)[172]100)[173]100
  184. 5186 NY[178]NF[173]B
  185. 5187 NY[178] [181]((NY[170]5.000001E[171]03)[172]100)[173]100
  186. 5190 [153]"";NY;"(null)EARS ",Q$
  187. 5195 Z[178]Z[170]1
  188. 5197 [139] Z [178] 5 [167] [137] 5900
  189. 5199 [137]5110
  190. 5900 [153]" (null)RESS -N-FOR NEXT ,-M- FOR (null)ENU"
  191. 5910 [133] P$: [139] P$ [178]"N" [167] [137] 5000
  192. 5915 [139] P$[178] "P" [167] [141] 50
  193. 5920 [139] P$[178] "M" [167] [137] 1000
  194. 5930 [139] P$ [179][177] "M" [167] [137] 5910
  195. 6000 [143] MINIMUM PAYMENT ALLOWABLE
  196. 6005 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  197. 6010 NF[178]25[172]B
  198. 6020 PF [178] AF[172](RF[173](1 [171](1 [173]((1 [170]RF)[174]NF))))
  199. 6030 PF [178] [181]((PF[170]5.000001E[171]03)[172]100)[173]100
  200. 6038 [153]
  201. 6040 [153]"(null)IN. PAYMENT ALLOWED  :-$";PF
  202. 6050 [142]
  203. 7000 [143] COST COMPARISON
  204. 7010 [153]"LOAD       LENALCULATE LENOST STR$IFFERENCE"
  205. 7011 [153]"        -------------------------"
  206. 7020 [153] "(null)ONTHLY (1), (null)EMI-(null)ONTHLY (2),            PEEKI-(null)EEKLY (3) , (null)EEKLY(4)"
  207. 7021 [133] Z:    [139] Z [178] 1 [167] [137]7030
  208. 7022 [139] Z[178]2 [167] [137]7030
  209. 7023 [139] Z[178]3 [167] [137]7030
  210. 7024 [139] Z[178]4 [167] [137]7030
  211. 7030 [141] 100
  212. 7040 [133] "VALNTER (null)ORTGAGE ATNMOUNT :-";AF
  213. 7060 [133] "VALNTER RIGHT$NTEREST (null)ATE   :-";IR
  214. 7065 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  215. 7066 [141]6000
  216. 7070 [133]"VALNTER (null)AYMENT         :-";PF
  217. 7071 [133]"VALNTER (null)ERM :-";T
  218. 7080 NF[178][171]([188](1[171]AF[172]RF[173]PF)[173][188](1[170]RF))
  219. 7085 NF[178] [181]((NF[170]5.000001E[171]03)[172]100)[173]100
  220. 7086 NY[178]NF[173]B
  221. 7087 NY[178] [181]((NY[170]5.000001E[171]03)[172]100)[173]100
  222. 7090 [153] "ATNMORT FOR ";Q$;" MORTGAGE -";NY;" (null)RS"
  223. 7100 CA[178](PF[172]NF)[171]AF
  224. 7110 [153]"RIGHT$NTEREST COSTS       :- $";CA
  225. 7112 TA[178]PF[172](T[172]B)
  226. 7120 [133]"(null)EW (null)AYMENT ASCREQ.(1,2,3,4)";ZZ
  227. 7121 [139]ZZ [178] 1 [167] [137]7160
  228. 7130 [139]ZZ[178]2 [167] [137]7160
  229. 7140 [139]ZZ[178]3 [167] [137]7160
  230. 7150 [139]ZZ[178]4 [167] [137]7160
  231. 7160 [141] 100
  232. 7165 DD [178] E[171]D
  233. 7170 PA[178]PF[173]DD
  234. 7175 PA[178] [181]((PA[170]5.000001E[171]03)[172]100)[173]100
  235. 7180 [153]"NEW";Q$;"PAYMENTS ARE $";PA
  236. 7190 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  237. 7200 NF[178][171]([188](1[171]AF[172]RF[173]PA)[173][188](1[170]RF))
  238. 7210 NF[178] [181]((NF[170]5.000001E[171]03)[172]100)[173]100
  239. 7220 NY[178]NF[173]B
  240. 7230 NY[178] [181]((NY[170]5.000001E[171]03)[172]100)[173]100
  241. 7240 [153] "ATNMORT FOR ";Q$;" MORTGAGE -";NY;"(null)RS"
  242. 7241 [133]"VALNTER NEW PAYMENT$";PB
  243. 7242 RF [178] (1[170]IR[173](2[172]100))[174](A)[171]1
  244. 7243 NF[178][171]([188](1[171]AF[172]RF[173]PB)[173][188](1[170]RF))
  245. 7244 NF[178] [181]((NF[170]5.000001E[171]03)[172]100)[173]100
  246. 7245 NY[178]NF[173]B
  247. 7246 NY[178] [181]((NY[170]5.000001E[171]03)[172]100)[173]100
  248. 7247 [153] "ATNMORT FOR ";Q$;" MORTGAGE -";NY;"(null)RS"
  249. 7250 CB[178](PB[172]NF)[171]AF
  250. 7255 CB[178] [181]((CB[170]5.000001E[171]03)[172]100)[173]100
  251. 7260 [153] "RIGHT$NTEREST COSTS       :- $";CB
  252. 7270 CC[178]CA[171]CB
  253. 7275 CC[178] [181]((CC[170]5.000001E[171]03)[172]100)[173]100
  254. 7280 [153] "(null)ATN(null)RIGHT$(null)CHR$(null)-RIGHT$NTEREST     :- $";CC
  255. 7281 TB[178]PB[172](T[172]B)
  256. 7285 TC[178]TB[171]TA
  257. 7286 [153] "(null)ATN(null)RIGHT$(null)CHR$(null)-RIGHT$NTEREST-(null)ERM:- $";TC
  258. 7900 [153]" (null)RESS -N-FOR NEXT ,-M- FOR (null)ENU"
  259. 7910 [133] P$: [139] P$ [178]"N" [167] [137] 7000
  260. 7915 [139] P$[178] "P" [167] [141] 50
  261. 7920 [139] P$[178] "M" [167] [137] 1000
  262. 7930 [139] P$ [179][177] "M" [167] [137] 7910
  263. 8000 [143] PRINTER AMORT
  264. 8005 [134] AZ(500,2)
  265. 8006 C$[178] [199](29)
  266. 8010 [159] 1,4,1:[159]2,4,2:[159]4,4,7
  267. 8015 [152]4,[199](147)
  268. 8020 [152]4,[199](14);"ASCLEX (null)ORTGAGE ATNMORTIZATION (null)CHEDULE";[199](129)
  269. 8021 [160]4:[159]4,4,7
  270. 8030 AS$[178]"PRINCIPAL AMT."
  271. 8031 AD$[178]"INTEREST RATE"
  272. 8032 AF$[178]"%"
  273. 8033 AG$[178]"PRINC. PAYMT."
  274. 8034 AH$[178]"TAX COMP."
  275. 8035 AJ$[178]" PAYMT."
  276. 8050 [152]2,"AAAAAAAAAAAAAAA $999999.99    AAAAAAAAAAAAAAA 99.999"
  277. 8055 [152]1,AS$;C$;AF;C$;AD$;C$;IR
  278. 8060 [152]2,"AAAAAAAAAAAAA $9999.99 AAAAAAAAA $9999.99 AAAAAA $999999.99"
  279. 8065 [152]1,AG$;C$;PF;AH$;C$;TB;AJ$;C$;TC
  280. 8070 [152]2," AAAA   AAAAAAAAAA      AAAAAAAAAA     AAAAAAAAAAA"
  281. 8071 SD$[178]"NO."
  282. 8072 SF$[178]"PRINCIPAL"
  283. 8073 SG$[178]"INTEREST"
  284. 8074 SH$[178]"BALANCE O/S"
  285. 8076 [152]1,SD$;C$;SF$;C$;SG$;C$;SH$
  286. 8080 [152]4,"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  287. 8115 TT[178]0
  288. 8120 AZ(0,1)[178]AF
  289. 8130 TG[178]TE[172]B
  290. 8140 [129] I [178] 1 [164] TG
  291. 8150 AZ(I,2)[178][181]((AZ(I[171]1,1)[172]RF[170]5.000001E[171]03)[172]100)[173]100
  292. 8160 AZ(I,1)[178]AZ(I[171]1,1)[171]PF[170]AZ(I,2)
  293. 8170 TT[178]TT[170]AZ(I,2)
  294. 8180 [152]2," 9999   $999999.99    $999999.99   $999999.99"
  295. 8181 WT[178]PF[171]AZ(I,2)
  296. 8182 WY[178]AZ(I,2)
  297. 8183 WU[178]AZ(I,1)
  298. 8185 [152]1,I,WT;WY;WU
  299. 8190 [130]I
  300. 8195 [152]4
  301. 8196 [152]4,"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  302. 8200 II$[178]"INTEREST PAID TO DATE"
  303. 8210 [152]2,"AAAAAAAAAAAAAAAAAAAAAA             $999999.99
  304. 8220 PRINT#1,II$;C$;TT
  305. 8225 PRINT#4,"                                   [183][183][183][183][183][183][183][183][183][183]"
  306. 8880 CLOSE1:CLOSE2:CLOSE4
  307. 8999 RETURN
  308.